A = (9, -5)
B = (12, -1)
f = Arcdeparabole2(A, 2, B)
C = (12, -5)
g = Arcdeparabole2(A, 0, C)
D = (17, 3)
h = Arcdeparabole2(D, 0, B)
E = (21, -4)
p = Arcdeparabole2(D, 0, E)
F = (15, -13)
q = Arcdeparabole2(F, 1, E)
G = (11, -8)
r = Arcdeparabole2(G, 1, C)
H = (16, -6)
s = Arcdeparabole2(G, 0, H)
I = (12, -10)
t = Arcdeparabole2(I, 0.5, H)
J = (15, -13)
f_1 = Arcdeparabole2(I, -1, J)
K = (14, -2)
L = (16, -2)
g_1 = Arcdeparabole2(K, 0.5, L)
h_1 = Arcdeparabole2(K, -0.5, L)
M = (11.035, -0.84)
u = Vector(A, M)
N = (13.87, 2.985)
v = Vector(D, N)
O = (20.125, 2.94)
w = Vector(D, O)
P = Point(f_1)
a = Vector(I, P)
Q = (18, -10)
b = Vector(J, Q)
R = (16, -8)
S = (13, -8)
d = Vector(G, S)
T = (13, -6)
e = Vector(G, T)
U = Point(g)
i = Vector(A, U)
V = (16, -1)
j = Vector(K, V)
W = (16, -3)
k = Vector(K, W)
c = Vector(I, R)

Tool: Arc de parabole (command Arcdeparabole)
Input: B, A, C
Output: f

a_1 = Line(A, B)
a: (Slope[a_1] - Slope[Line[A, C]]) / (x(A) - x(C))
b: Slope[Line[A, C]] - (a * (x(A) + x(C)))
c: y(A) - (a * x(A)^(2)) - (b * x(A))
f(x) = If[(x(B)  <  x(A)) ∧ x(A)  <  x  <  x(C) ∨ (x(A)  <  x(B)) ∧ x(A) > x > x(C), (a * x^(2)) + (b * x) + c]

Tool: Arc de parabole 2 (command Arcdeparabole2)
Input: A, m, C
Output: f

a: (m - Slope[Line[A, C]]) / (x(A) - x(C))
b: Slope[Line[A, C]] - (a * (x(A) + x(C)))
c: y(A) - (a * x(A)^(2)) - (b * x(A))
f(x) = If[x(A)  <  x  <  x(C) ∨ x(A) > x > x(C), (a * x^(2)) + (b * x) + c]